MacTech 1 to 12/MacTech-vol-1-12.toast/Source/MacTech® Magazine/Volume 09 - 1993/09.02 Feb 93/Jörg's Folder/SysEqu.Txt

Text File | 1992-10-07 | 19.8 KB | 566 lines | [TEXT/QED1]

( File: SysEqu.txt )

( Version 2.0 )

( Copyright 1984, 1985, 1986 Apple Computer, Inc. All Rights Reserved )

( System Equates -- This file defines the low-level equates for the )
(    Macintosh software.  This is divided into two pieces for )
(    assembly space and speed considerations.  The wholeSystem flag  )
(    is used to include the less common equates which realizes a  )
(    complete set.  The comments marked with ";+" denote categories or  )
(    managers.  Record stuctures may have additional private equates  )
(    which are defined by and reserved for use by Apple Computer, Inc. )

push.VOCAB.state
ONLY MAC DEFINITIONS
ALSO DEVELOPMENT
ALSO FORTH

#ifndef _SYSEQU_

    #ifndef _FSEQU_
        INCLUDE" :Includes:FSEqu.Txt"
    #endif

    \ #define _SYSEQU_
    18384 Insert.MODULE _SYSEQU_

\ 0    CONSTANT wholeSystem    ( Set for complete set of system equates )

( ROM Equates )

$28E    CONSTANT ROM85        ( (word) actually high bit - 0 for ROM vers $75 (sic) and later )
$B06    CONSTANT ROMMapHndl    ( (long) handle of ROM resource map )

( Screen Equates )

\ $102    CONSTANT ScrVRes    ( screen vertical dots/inch [word] )
\ $104    CONSTANT ScrHRes    ( screen horizontal dots/inch [word] )
\ $824    CONSTANT ScrnBase    ( Screen Base [pointer] )
\ $106    CONSTANT ScreenRow    ( rowBytes of screen [word] )


( Mouse/Keyboard )

$16E    CONSTANT MBTicks    ( tick count @ last mouse button [long] )
$21A    CONSTANT JKybdTask    ( keyboard VBL task hook [pointer] )
$184    CONSTANT KeyLast    ( ASCII for last valid keycode [word] )
$186    CONSTANT KeyTime    ( tickcount when KEYLAST was rec'd [long] )
$18A    CONSTANT KeyRepTime    ( tickcount when key was last repeated [long] )

( Parameter RAM (a twenty byte copy of the real parameter ram). )

$1FB    CONSTANT SPConfig    ( config bits: 4-7 A, 0-3 B (see use type below) )
$1FC    CONSTANT SPPortA    ( SCC port A configuration [word] )
$1FE    CONSTANT SPPortB    ( SCC port B configuration [word] )

( Serial port use type )

0    CONSTANT useFree    ( Use undefined )
1    CONSTANT useATalk    ( AppleTalk )
2    CONSTANT useAsync    ( Async )
3    CONSTANT useExtClk    ( externally clocked )

( Unpacked, user versions of parameter ram )

$2F0    CONSTANT DoubleTime    ( double click ticks [long] )
$2F4    CONSTANT CaretTime    ( caret blink ticks [long] )
$18E    CONSTANT KeyThresh    ( threshold for key repeat [word] )
$190    CONSTANT KeyRepThresh    ( key repeat speed [word] )
$260    CONSTANT SdVolume    ( Global volume (sound) control [byte] )

( System Clocks )

$16A    CONSTANT Ticks    ( Tick count, time since boot [long] )
$20C    CONSTANT Time    ( clock time (extrapolated) [long] )

( Cursor )

1    CONSTANT iBeamCursor    ( text selection cursor )
2    CONSTANT crossCursor    ( for structured selection )
3    CONSTANT plusCursor        ( for drawing graphics )
4    CONSTANT watchCursor    ( for indicating a long delay )


( result codes for Relstring call )

-1    CONSTANT sortsBefore    ( str1 < str2 )
0    CONSTANT sortsEqual        ( str1 = str2 )
1    CONSTANT sortsAfter        ( str1 > str2 )

( Queue Package )

7    CONSTANT qInUse    ( queue-in-use flag bit )

( Header Record )

$A    CONSTANT qHeadSize    ( queue header size )
0    CONSTANT qFlags        ( miscellaneous flags [word] )
2    CONSTANT qHead        ( first element in queue [pointer] )
6    CONSTANT qTail        ( last element in queue [pointer] )

( General Purpose Queue Element Definition )

0    CONSTANT qLink    ( link to next queue element [pointer] )
4    CONSTANT qType    ( queue element type [word] )

( Event Manager )

4    CONSTANT evType    ( event queue element is type 4 )

( Event Type Numbers (in EvtNum) )

0    CONSTANT nullEvt    ( event 0 is the null event )
1    CONSTANT mButDwnEvt    ( mouse button down is event 1 )
2    CONSTANT mButUpEvt    ( mouse button up is event 2 )
3    CONSTANT keyDwnEvt    ( key down is event 3 )
4    CONSTANT keyUpEvt    ( key up is event 4 )
5    CONSTANT autoKeyEvt    ( auto-repeated key is event 5 )
6    CONSTANT updatEvt    ( update event )
7    CONSTANT diskInsertEvt    ( disk-inserted event )
8    CONSTANT activateEvt    ( activate/deactive event )
$A    CONSTANT netWorkEvt    ( network event )
$B    CONSTANT ioDrvrEvt    ( driver-defined event )
$C    CONSTANT app1Evt    ( application defined events )
$D    CONSTANT app2Evt
$E    CONSTANT app3Evt
$F    CONSTANT app4Evt

( Modifier bits in event record )

$0    CONSTANT activeFlag    ( activate? )
$7    CONSTANT btnState    ( state of button? )
$8    CONSTANT cmdKey        ( command key down? )
$9    CONSTANT shiftKey    ( shift key down? )
$A    CONSTANT alphaLock    ( alpha lock down? )
$B    CONSTANT optionKey    ( option key down? )

( Event Record Definition )

0    CONSTANT evtNum        ( event code [word] )
2    CONSTANT evtMessage    ( event message [long] )
6    CONSTANT evtTicks    ( ticks since startup [long] )
$A    CONSTANT evtMouse    ( mouse location [long] )
$E    CONSTANT evtMeta    ( state of modifier keys [byte] )
$F    CONSTANT evtMBut    ( state of mouse button [byte] )
$10    CONSTANT evtBlkSize    ( size in bytes of the event record )

$100    CONSTANT MonkeyLives    ( monkey lives if >= 0 [word] )
$15C    CONSTANT SEvtEnb        ( enable SysEvent calls from GNE [byte] )
$8DE    CONSTANT JournalFlag    ( journaling state [word] )
$8E8    CONSTANT JournalRef        ( Journalling driver's refnum [word] )


( Memory Manager )

( Master pointer bits for handles - USE _HLock, _HPurge, etc. for portability )

7    CONSTANT lock        ( lock bit in a master pointer )
6    CONSTANT purge        ( bit for purgeable/unpurgeable )
5    CONSTANT resourc    ( bit to flag a resource handle )


$10C    CONSTANT BufPtr        ( top of application memory [pointer] )
$110    CONSTANT StkLowPt    ( Lowest stack as measured in VBL task [pointer] )
$118    CONSTANT TheZone    ( current heap zone [pointer] )
$130    CONSTANT ApplLimit    ( application limit [pointer] )
$2A6    CONSTANT SysZone    ( system heap zone [pointer] )
$2AA    CONSTANT ApplZone    ( application heap zone [pointer] )
$114    CONSTANT HeapEnd    ( end of heap [pointer] )
$BAE    CONSTANT HiHeapMark    ( (long) highest address used by a zone below sp<01Nov85 JTC> )

$220    CONSTANT MemErr    ( last memory manager error [word] )

$800000    CONSTANT maxSize            ( outrageously large memory mgr request )
$00002000    CONSTANT dfltStackSize    ( 8K size for stack )
$00000400    CONSTANT mnStackSize    ( 1K minimum size for stack )

( _InitZone argument table. )

0    CONSTANT startPtr        ( Start address for zone [pointer] )
4    CONSTANT limitPtr        ( Limit address for zone [pointer] )
8    CONSTANT cMoreMasters    ( Number of masters to allocate at time [word] )
10    CONSTANT pGrowZone        ( growZone procedure [pointer] )

( Control/Status Call Codes )

1    CONSTANT killCode    ( KillIO code )
8    CONSTANT drvStsCode    ( status call code for drive status )
7    CONSTANT ejectCode    ( control call eject code )
8    CONSTANT tgBuffCode    ( set tag buffer code )

( Driver flags, (Bit definitions for DCtlFlags byte) )

0    CONSTANT dReadEnable    ( enabled for read operations )
1    CONSTANT dWritEnable    ( enabled for writing )
2    CONSTANT dCtlEnable        ( enabled for control operations )
3    CONSTANT dStatEnable    ( enabled for status operations )
4    CONSTANT dNeedGoodBye    ( needs a "goodbye kiss" )
5    CONSTANT dNeedTime        ( needs "main thread" time )
6    CONSTANT dNeedLock        ( needs to be accessed at interrupt level )

( Run-Time flags, (Bit definitions for DCtlFlags+1 byte) )

5    CONSTANT dOpened    ( bit to mark driver 'Open' )
6    CONSTANT dRAMBased    ( 1=RAM-based Driver, 0=ROM-based )
7    CONSTANT drvrActive    ( bit to mark the driver active )

( Drive queue element offsets )

$6    CONSTANT dQDrive    ( drive number [word] )
$8    CONSTANT dQRefNum    ( driver refnum [word] )
$A    CONSTANT dQFSID        ( file system handling this drive [word] )
$C    CONSTANT dQDrvSz    ( number of blocks this drive [word] )
$E    CONSTANT dQDrvSz2    ( if qType = 1, high word of drive size )

( Queue Element Type Definitions )

2    CONSTANT ioQType    ( I/O queue element is type 2 )
3    CONSTANT drvQType    ( timer queue element is type 3 )
5    CONSTANT fsQType    ( File System VCB element )

( Device Control Entry Definition )

$28    CONSTANT dCtlEntrySize    ( length of a DCE [40 bytes] )
0    CONSTANT dCtlDriver        ( driver [handle] )
4    CONSTANT dCtlFlags        ( flags [word] )
6    CONSTANT dCtlQueue        ( queue header )
8    CONSTANT dCtlQHead        ( queue first-element [pointer] )
$C    CONSTANT dCtlQTail        ( queue last-element [pointer] )
$10    CONSTANT dCtlPosition    ( position [long] )
$14    CONSTANT dCtlStorage    ( driver's private storage [handle] )
$18    CONSTANT dCtlRefNum        ( refNum of this driver [word] )
$1A    CONSTANT dCtlCurTicks    ( counter for timing systemTask calls [long] )
$1E    CONSTANT dCtlWindow        ( driver's window (if any) [pointer] )
$22    CONSTANT dCtlDelay        ( number of ticks between sysTask calls [word] )
$24    CONSTANT dCtlEMask        ( desk accessory event mask [word] )
$26    CONSTANT dCtlMenu        ( menu ID associated with driver [word] )

( Driver Globals )

$11C    CONSTANT UTableBase        ( unit I/O table [pointer] )
$1D2    CONSTANT UnitNtryCnt    ( count of entries in unit table [word] )

$8F4    CONSTANT JFetch    ( fetch a byte routine for drivers [pointer] )
$8F8    CONSTANT JStash    ( stash a byte routine for drivers [pointer] )
$8FC    CONSTANT JIODone    ( IODone entry location [pointer] )

( Chooser )

1    CONSTANT chooserID    ( caller value for the chooser )

( Printer )

0    CONSTANT wDev    ( the drvr #, hi byte = refnum, lo byte = variant [word] )

( I/O System )

( File positioning modes for ioPosMode field of I/O record )

0    CONSTANT fsAtMark        ( at current position of mark )
1    CONSTANT fsFromStart    ( offset relative to beginning of file )
2    CONSTANT fsFromLEOF        ( offset relative to logical end-of-file )
3    CONSTANT fsFromMark        ( offset relative to current mark )
$40    CONSTANT rdVerify        ( read verify mode )

( Permission values for ioPermssn field of I/O record )

0    CONSTANT fsCurPerm    ( whatever is currently allowed )
1    CONSTANT fsRdPerm    ( request to read only )
2    CONSTANT fsWrPerm    ( request to write only )
3    CONSTANT fsRdWrPerm    ( request to read and write )
4    CONSTANT fsRdWrShPerm    ( request for shared read and write )

( I/O record (general fields with trap-specific ones listed below) )

$32    CONSTANT ioQElSize    ( length of I/O parameter block [50 bytes] )

$0    CONSTANT ioLink        ( queue link in header [pointer] )
$4    CONSTANT ioType        ( type for safety check [byte] )
$6    CONSTANT ioTrap        ( the trap [word] )
$8    CONSTANT ioCmdAddr    ( address to dispatch to [pointer] )

$C    CONSTANT ioCompletion    ( completion routine [pointer] )
$10    CONSTANT ioResult    ( I/O result code [word] )
$12    CONSTANT ioFileName    ( file name pointer [pointer] )
$16    CONSTANT ioVRefNum    ( volume refnum [word] )
$16    CONSTANT ioDrvNum    ( drive number [word] )
$18    CONSTANT ioRefNum    ( file reference number [word] )

$1A    CONSTANT ioFileType    ( specified along with FileName [byte] )

( specific fields for _Read, _Write )

$20    CONSTANT ioBuffer        ( data buffer [pointer] )
$24    CONSTANT ioByteCount    ( requested byte count [long] )
$28    CONSTANT ioNumDone        ( actual byte count completed [long] )

$2C    CONSTANT ioPosMode        ( initial file positioning mode/eol char [word] )
$2E    CONSTANT ioPosOffset    ( file position offset [long] )

( specific fields for _Allocate )

$24    CONSTANT ioReqCount    ( requested new size [long] )
$28    CONSTANT ioActCount    ( actual byte count allocated [long] )

( specific fields for _Open )

$1B    CONSTANT ioPermssn    ( permissions [byte] )
$1C    CONSTANT ioOwnBuf    ( "private" 522-byte buffer [pointer] )

( specific fields for _ReName )

$1C    CONSTANT ioNewName    ( new name pointer [pointer] )

( specific fields for  _GetFileInfo, _SetFileInfo )

$50    CONSTANT ioFQElSize    ( File command parameter length [80 bytes] )

$1C    CONSTANT ioFDirIndex    ( directory index of file [word] )
$1E    CONSTANT ioFlAttrib    ( in-use bit=7, lock bit=0 [byte] )
$1F    CONSTANT ioFFlType    ( file type [byte] )
$20    CONSTANT ioFlUsrWds    ( finder info [16 bytes] )
$20    CONSTANT ioFlFndrInfo    ( finder info [16 bytes] )
$30    CONSTANT ioFFlNum    ( file number [long] )
$30    CONSTANT ioDirID    ( directory ID )

$34    CONSTANT ioFlStBlk    ( start file block (0000 if none) [word] )
$36    CONSTANT ioFlLgLen    ( logical length (EOF) [long] )
$3A    CONSTANT ioFlPyLen    ( physical length in bytes [long] )
$3E    CONSTANT ioFlRStBlk    ( resource fork's start file block [word] )
$40    CONSTANT ioFlRLgLen    ( resource fork's logical length (EOF) [long] )
$44    CONSTANT ioFlRPyLen    ( resource fork's physical length [long] )

$48    CONSTANT ioFlCrDat    ( creation date & time [long] )
$4C    CONSTANT ioFlMdDat    ( last modification date & time [long] )

( Specific fields for _GetEOF, _SetEOF )

$1C    CONSTANT ioLEOF    ( logical end-of-file [long] )

( Specific fields for _SetFileType )

$1C    CONSTANT ioNewType    ( new type byte [byte] )

( Specific fields for _GetVolInfo, _GetVolume, _SetVolume, _MountVol, )
( _UnmountVol, _Eject.  Note that these traps have a bigger record size. )

$40    CONSTANT ioVQElSize    ( Volume command parameter length [64 bytes] )
$16    CONSTANT ioVDrvNum    ( drive or volume number [word] )
$12    CONSTANT ioVNPtr    ( name buffer (or zero) [pointer] )
$1C    CONSTANT ioVolIndex    ( volume index number [word] )

$1E    CONSTANT ioVCrDate    ( creation date & time [long] )
$22    CONSTANT ioVLsBkUp    ( last backup date & time [long] )
$26    CONSTANT ioVAtrb    ( Volume attributes [word] )
$28    CONSTANT ioVNmFls    ( # files in directory [word] )
$2A    CONSTANT ioVDirSt    ( start block of file dir [word] )
$2C    CONSTANT ioVBlLn    ( length of dir in blocks [word] )
$2E    CONSTANT ioVNmAlBlks    ( num blks (of alloc size) this dev [word] )
$30    CONSTANT ioVAlBlkSiz    ( alloc blk byte size [long] )
$34    CONSTANT ioVClpSiz    ( bytes to try to allocate at a time [long] )
$38    CONSTANT ioAlBlSt    ( starting block in block map [word] )
$3A    CONSTANT ioVNxtFNum    ( next free file number [long] )
$3E    CONSTANT ioVFrBlk    ( # free alloc blks for this vol [word] )

( --- New File System Equates  --- )

( Catalog structure equates: )

1    CONSTANT fsRtParID    ( DirID of parent's root )
2    CONSTANT fsRtDirID    ( Root DirID )
3    CONSTANT fsXTCNID    ( Extent B*-Tree file ID )
4    CONSTANT fsCTCNID    ( Catalog B*-Tree file ID )
$10    CONSTANT fsUsrCNID    ( First assignable user CNode ID )

( Additional equates for catalog information return: )

$50    CONSTANT ioFlBkDat    ( File's last backup date )
$54    CONSTANT ioFlxFndrInfo    ( File's additional finder info bytes )
$64    CONSTANT ioFlParID    ( File's parent directory ID )
$68    CONSTANT ioFlClpSiz    ( File's clump size, in bytes )

( Additional equates for directory information return: )

4    CONSTANT ioDirFlg    ( Bit in ioFlAttrb set to indicate directory )
$20    CONSTANT ioDrUsrWds    ( Directory's user info bytes )
$30    CONSTANT ioDrDirID    ( Directory ID )
$34    CONSTANT ioDrNmFls    ( Number of files in a directory )
$48    CONSTANT ioDrCrDat    ( Directory creation date )
$4C    CONSTANT ioDrMdDat    ( Directory modification date )
$50    CONSTANT ioDrBkDat    ( Directory backup date )
$54    CONSTANT ioDrFndrInfo    ( Directory finder info bytes )
$64    CONSTANT ioDrParID    ( Directory's parent directory ID )

$6C    CONSTANT ioHFQElSiz    ( Size of a Hierarchical File Queue Element )

( Additional equates for _TFGetVolInfo: )

$22    CONSTANT ioVLsMod    ( Last modification date )
$40    CONSTANT ioVSigWord    ( Volume signature )
$2A    CONSTANT ioVCBVBMst
$3A    CONSTANT ioVNxtCNID
$42    CONSTANT ioVDrvInfo    ( Drive number (0 if volume is offline) )
$44    CONSTANT ioVDRefNum    ( Driver refNum )
$46    CONSTANT ioVFSID    ( ID of file system handling this volume )
$48    CONSTANT ioVBkup    ( Last backup date (0 if never backed up) )
$4C    CONSTANT ioVSeqNum    ( Sequence number of this volume in volume set )
$4E    CONSTANT ioVWrCnt    ( Volume write count )
$52    CONSTANT ioVFilCnt    ( Total number of files on volume )
$56    CONSTANT ioVDirCnt    ( Total number of directories on the volume )
$5A    CONSTANT ioVFndrInfo    ( Finder information for volume )

$7A    CONSTANT ioHVQElSize    ( Length of Hierarchical Volume information PB )

( New fields for _GetFCBInfo: )

$1C    CONSTANT ioFCBIndex    ( FCB index for _GetFCBInfo )
$20    CONSTANT ioFCBFlNm    ( File number )
$24    CONSTANT ioFCBFlags    ( FCB flags )
$26    CONSTANT ioFCBStBlk    ( File start block )
$28    CONSTANT ioFCBEOF    ( Logical end-of-file )
$2C    CONSTANT ioFCBPLen    ( Physical end-of-file )
$30    CONSTANT ioFCBCrPs    ( Current file position )
$34    CONSTANT ioFCBVRefNum    ( Volume refNum )
$36    CONSTANT ioFCBClpSiz    ( File clump size )
$3A    CONSTANT ioFCBParID    ( Parent directory ID )

( New fields for _GetWDInfo: )

$1A    CONSTANT ioWDIndex        ( Working Directory index for _GetWDInfo )
$1C    CONSTANT ioWDProcID        ( WD's ProcID (long) )
$20    CONSTANT ioWDVRefNum    ( WD's Volume RefNum (word) )
$30    CONSTANT ioWDDirID        ( WD's DirID (long) )

( New fields for _FSControl call: )

$20    CONSTANT ioFSVrsn    ( File system version )

( New field for CatMove )

$24    CONSTANT ioNewDirID    ( destination directory for CatMove )

( --- End of New File System Equates --- )

( Specific fields for _Control, _Status )

$1A    CONSTANT csCode        ( control/status code [word] )
$1C    CONSTANT csParam    ( operation-defined parameters [22 bytes] )

( FInfo (Finder Information) record layout )

$0    CONSTANT fdType        ( type of file [long] )
$4    CONSTANT fdCreator    ( file's creator [long] )
$8    CONSTANT fdFlags    ( flags [word] )
$A    CONSTANT fdLocation    ( file's location [point] )
$E    CONSTANT fdFldr        ( file's window [word] )

( added for HFS )

( FXInfo record layout )

$0    CONSTANT fdIconID    ( Icon ID [word] )
$2    CONSTANT fdUnused    ( unused but reserved [4 words] )
$A    CONSTANT fdComment    ( Comment ID [word] )
$C    CONSTANT fdPutAway    ( Home Dir ID [2 words] )

( DInfo record layout )

$0    CONSTANT frRect        ( Folder Rect [4 words] )
$8    CONSTANT frFlags    ( Flags [word] )
$A    CONSTANT frLocation    ( Location [2 words] )
$E    CONSTANT frView        ( Folder view [word] )

( DXInfo record layout )

$0    CONSTANT frScroll        ( scroll position [2 words] )
$4    CONSTANT frOpenChain    ( dirID chain of open folders [2 words] )
$8    CONSTANT frUnused        ( unused but reserved [word] )
$A    CONSTANT frComment        ( comment [word] )
$C    CONSTANT frPutAway        ( Dir ID [2 words] )

( end of addition )

( Masks for fdFlags field of FInfo record defined above )

13    CONSTANT fHasBundle    ( set if file has a bundle )
14    CONSTANT fInvisible    ( set if file's icon is invisible )
-3    CONSTANT fTrash        ( file is in Trash window )
-2    CONSTANT fDeskTop    ( file is on desktop )
0    CONSTANT fDisk        ( file is in disk window )

( File System Globals )

$308    CONSTANT DrvQHdr    ( queue header of drives in system [10 bytes] )
$210    CONSTANT BootDrive    ( drive number of boot drive [word] )
$338    CONSTANT EjectNotify    ( eject notify procedure [pointer] )
$33C    CONSTANT IAZNotify    ( world swaps notify procedure [pointer] )
$214    CONSTANT SFSaveDisk    ( last vRefNum seen by standard file [word] )
$36A 46 +
        CONSTANT CurDirStore      ( save dir across calls to Standard File [long] )
$1E    CONSTANT ROMDoEject        ( add this value to the value in ROMBase for DoEject utility                 )


( Date-Time record (for use with _Secs2Date, and _Date2Secs) )

$0    CONSTANT dtYear        ( year (1904..) [word] )
$2    CONSTANT dtMonth    ( month (1..12) [word] )
$4    CONSTANT dtDay        ( day (1..31) [word] )
$6    CONSTANT dtHour        ( hour (0..23) [word] )
$8    CONSTANT dtMinute    ( minute (0..59) [word] )
$A    CONSTANT dtSecond    ( second (0..59) [word] )
$C    CONSTANT dtDayOfWeek    ( day of week, sunday..saturday (1..7) [word] )


( Miscellaneous stuff )

$A02    CONSTANT OneOne        ( constant $00010001 [long] )
$A06    CONSTANT MinusOne    ( constant $FFFFFFFF [long] )
$31A    CONSTANT Lo3Bytes    ( constant $00FFFFFF [long] )

$2AE    CONSTANT ROMBase    ( ROM base address [pointer] )
$2B2    CONSTANT RAMBase    ( RAM base address [pointer] )
$15A    CONSTANT SysVersion    ( version # of RAM-based system [word] )
$156    CONSTANT RndSeed    ( random seed/number [long] )


( Scratch Areas )

$1E4    CONSTANT scratch20    ( scratch [20 bytes] )
$9FA    CONSTANT scratch8    ( scratch [8 bytes] )


( Scrap Manager )

$960    CONSTANT ScrapSize    ( scrap length [long] )
$964    CONSTANT ScrapHandle    ( memory scrap [handle] )
$968    CONSTANT ScrapCount    ( validation byte [word] )
$96A    CONSTANT ScrapState    ( scrap state [word] )
$96C    CONSTANT ScrapName    ( pointer to scrap name [pointer] )


( Desk Accessories )

( Message Definitions (in CSCode of control call) )

$40    CONSTANT accEvent    ( event message from SystemEvent )
$41    CONSTANT accRun        ( run message from SystemTask )
$42    CONSTANT accCursor    ( cursor message from SystemTask )
$43    CONSTANT accMenu    ( menu message from SystemMenu )
$44    CONSTANT accUndo    ( undo message from SystemEdit )
$46    CONSTANT accCut        ( cut message from SystemEdit )
$47    CONSTANT accCopy    ( copy message from SystemEdit )
$48    CONSTANT accPaste    ( paste message from SystemEdit )
$49    CONSTANT accClear    ( clear message from SystemEdit )

-1    CONSTANT goodBye    ( goodbye message )

    \ wholeSystem ?INCLUDE" SysEquWhole.Txt"

    _SYSEQU_ restore.Name.Space

#endif
pop.VOCAB.state